Ｆｕｚｚｙ　ＢＡＳＩＣ ――――――――――――――――――――――――――――――――――――――― Ｏｈ！ｍｚ　１９８６年　９月号掲載 Ｓ−ＯＳ　ＳＷＯＲＤ用 Ｆｕｚｚｙ　ＢＡＳＩＣ マシン語 Ｆｕｚｚｙ　ＢＡＳＩＣ．ＳＯＳ 　０３０００Ｈ−０５７ＦＦＨ　Ｓ：０３０００Ｈ サンプル１　チェックサムプログラム ＢＡＳＩＣ 　Ｃｈｅｃｋ　ｓｕｍ．ＢＡＳ 改造ＺＥＤＡ用ソース 　Ｆｕｚｚｙ１．ＡＳＣ 　Ｆｕｚｚｙ２．ＡＳＣ 　Ｆｕｚｚｙ３．ＡＳＣ -------------------------------------- 改造ＺＥＤＡ マシン語 　Ｋａｚｉｚｏｕ　ＺＥＤＡ．ＳＯＳ 　０３０００Ｈ−０４ＤＦＦＨ　Ｓ：０３０００Ｈ パッチ　プログラム　（要ＺＥＤＡ） 　Ｋａｚｉｚｏｕ　ＺＥＤＡ．ＰＡＴ 　０４Ｄ００Ｈ−０４Ｅ２ＦＨ　Ｓ：０４Ｄ００Ｈ パッチ　プログラム ソース　（ＺＥＤＡ用） 　Ｋａｚｉｚｏｕ　ＺＥＤＡ．ＡＳＣ 起動方法 Ｆｕｚｚｙ　ＢＡＳＩＣ．ＳＯＳをロード Ｊ３０００ コールドスタート：０３０００Ｈ ホットスタート　：０３００３Ｈ ＊Ｆｕｚｚｙ１．ＡＳＣの 　１４７７の…”Ｆｏｕｎｄを…”Ｆｏｕｎｄ　”に修正 ――――――――――――――――――――――――――――――――――――――― ついに登場、Ｓ−ＯＳ用のＢＡＳＩＣインタプリタです。 マシン語・システムに近い命令から 再帰・構造化などたいへんユニークな機能を備えて乙ますし、 命令の拡張も可能になっています。 このＢＡＳＩＣをアセンブルするために ＺＥＤＡにリンク機能を付け、 おまけに高速化をするプログラムも紹介します。 おおいに活用してください。 ＭＺ／Ｘ１で使える整数型ＢＡＳＩＣといいますと、 市販されているものとしてはＷＩＣＳ、 ｄＢ−ＩＢＡＳＩＣなどがありますが、 Ｏｈ！ＭＺの読者の方でしたら、以前誌上で発表されました Ｔ．Ｔ．Ｌ．インタプリタを使っている方も多いのではないでしようか。 Ｔ．Ｔ．Ｌ．は一種の記号化された整数型ＢＡＳＩＣ（？）で Ｔｉｎｙ言語の流れをくむものです。 ワークエリアを含めて８Ｋバイトとコンパクトながら 基本的なＢＡＳＩＣの機能はすべて持ち、 サブルーチン内で局所変数が使え、 メモリやＩ／Ｏの操作も強力という優れたものでした。 Ｆｕｚｚｙ　ＢＡＳＩＣはＷＩＣＳインタプリタから グラフィツク処理を除き、Ｔ．Ｔ．Ｌ．の長所を取り入れ、 少々の命令を加えたものといえます。 その少々の命令には、構造化したプログラムを書くのに必要なもの、 逆にＺ80の機械語に近いもの、“ＳＷＯＲＤ”のおかげで 付け加えられたファイル処理関係ステートメントなどがあります。 さらに、ユーザーがステートメントを追加することもできますので、 力のある方ならより強力なものにすることも可能でしよう。 ・――――　　　　　　　　　　　　　・ ｜　　　　　　入力方法　　　　　　　｜ ・　　　　　　　　　　　　　――――・ ダンプで打ち込む方は各機種のマシン語モニタ または入力ツールを使って 3000Ｈ〜57FFＨまで入力してください。 ソースの場合はＺＥＤＡではアセンブルできませんので リスト１の改造版ＺＥＤＡでアセンブルしてください。 これは従来のＺＥＤＡに 分割アセンブル機能とハッシュ表を追加したものです。 これにより大規模なプログラム開発と 最低５倍の高速アセンブルが可能になりました。 なお、改造版ＺＥＤＡの内容やアセンブル手順については 表１、２を参照してください。 ●表１　改造版ＺＥＤＡ追加コマンド ・―――――――――――――――――――――――――――・ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　A0　　　　　　ハッシュテーブルをクリアする　　　　　｜ ｜　A1　　　　　　Ｐａｓｓ１のみ行う　　　　　　　　　　｜ ｜　　　　　　　　（ラベルテーブルの作成）　　　　　　　｜ ｜　A2〔/〔/〕〕　Ｐａｓｓ２のみ行う　　　　　　　　　　｜ ｜　　　　　　　　（すでに作られているラベルテーブルを　｜ ｜　　　　　　　　　使って、オブジェクトを生成する）　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　分割アセンブルの手順　　　　　　　　　　　　　　　　｜ ｜　１）A0を実行する　　　　　　　　　　　　　　　　　　｜ ｜　２）テキストをロードする　　　　　　　　　　　　　　｜ ｜　３）A1を実行する　　　　　　　　　　　　　　　　　　｜ ｜　４）すべてのテキストについて、２〜３を繰り返す　　　｜ ｜　５）テキストをロードする　　　　　　　　　　　　　　｜ ｜　６）A2を実行する　　　　　　　　　　　　　　　　　　｜ ｜　７）必要に応じてオブジェクトをセーブしておく　　　　｜ ｜　８）すべてのテキストについて、５〜７を繰り返す　　　｜ ｜　　（A1のときと同じ順序であること）　　　　　　　　　｜ ｜　９）Ｓ−ＯＳのモニタに戻る　　　　　　　　　　　　　｜ ｜　10）７）でセーブしたオブジェクトを適当な順序で　　　｜ ｜　　　すべてロードする　　　　　　　　　　　　　　　　｜ ｜　11）必要な範囲をセーブする　　　　　　　　　　　　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜コールドスタートは4D00Ｈであるが、　　　　　　　　　　｜ ｜１回起動したあとに、3000Ｈ〜4DFFＨをセーブしておけば、｜ ｜次回からは3000Ｈヘジャンプすればコールドスタートする。｜ ｜テキストエリアは4E00Ｈからである　　　　　　　　　　　｜ ・―――――――――――――――――――――――――――・ ●表２　Ｆｕｚｚｙ　ＢＡＳＩＣアセンブル手順 ・―――――――――――――――――――――――――――・ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ｜　１）A0を実行する　　　　　　　　　　　　　　　　　　｜ ｜　２）エディタヘ戻ってソース１をロードする　　　　　　｜ ｜　３）アセンブラモードにしたのち、A1を実行する　　　　｜ ｜　４）ソース２をロードする　　　　　　　　　　　　　　｜ ｜　５）A1を実行する　　　　　　　　　　　　　　　　　　｜ ｜　６）ソース３をロードする　　　　　　　　　　　　　　｜ ｜　７）A1を実行する　　　　　　　　　　　　　　　　　　｜ ｜　８）ソース１をロードする　　　　　　　　　　　　　　｜ ｜　９）A2を実行する　　　　　　　　　　　　　　　　　　｜ ｜　10）3000Ｈ〜3ABCＨの範囲をセーブする　　　　　　　　｜ ｜　　　ただし4E00Ｈ〜3000Ｈのオフセットが　　　　　　　｜ ｜　　　付いているので。　　　　　　　　　　　　　　　　｜ ｜　　　S3000 3ABC 0000 4E00:Fuzzy1.$$$ 　　　　　　　　｜ ｜　　　としてセーブする。　　　　　　　　　　　　　　　｜ ｜　　　以下の場合も同様　　　　　　　　　　　　　　　　｜ ｜　11）ソース２をロードし、A2を実行する　　　　　　　　｜ ｜　12）3ABDＨ〜57FFＨの範囲をセーブする　　　　　　　　｜ ｜　　　（ここではFuzzy2.$$$の名とする）　　　　　　　　｜ ｜　13）ソース３をロードし、A2を実行する　　　　　　　　｜ ｜　14）515AＨ〜57D5Ｈの範囲をセーブする　　　　　　　　｜ ｜　　　（Fuzzy3.$$$の名としておく）　　　　　　　　　　｜ ｜　15）！でＳ−ＯＳへ戻る　　　　　　　　　　　　　　　｜ ｜　16）Fuzzy1.$$$、Fuzzy2.$$$、Fuzzy3.$$$の順に　　　　｜ ｜　　　ロードする　　　　　　　　　　　　　　　　　　　｜ ｜　17）新たに3000Ｈ〜57FFＨの範囲をファイル名を付けて　｜ ｜　　　セーブする　　　　　　　　　　　　　　　　　　　｜ ｜　18）もう必要ないので、Fuzzy1.$$$、Fuzzy2.$$$、　　　｜ ｜　　　Fuzzy3.$$$を消去してしまって良い　　　　　　　　｜ ｜　　　　　　　　　　　　　　　　　　　　　　　　　　　｜ ・―――――――――――――――――――――――――――・ ・――――　　　　　　　　　　　　　・ ｜　　　　　　命令の特徴　　　　　　｜ ・　　　　　　　　　　　　　――――・ おのおのの命令についてはマニュアルを見ていただくことにして、 以下にわかりにくい点や細かな注意について 思いつくままに書いてみたいと思います。 ●メモリ配列とＩ／Ｏ配列 ＷＩＣＳでいう配列と Ｔ．Ｔ．Ｌ．のメモリ変数・Ｉ／Ｏ変数のあいの子と思えば 間違いないでしょう。 機械語のインデックスアドレッシングに相当します。 これによりメモリ（とＩ／Ｏ）の特定のアドレスを 一般変数とほとんど区別することなく扱うことができます。 ●ラベル 最近のＢＡＳＩＣでは標準装備になっていますので 多くを述べる必要はないでしよう。 GOTO文などの分岐先として、 行番号の代わりに用いられます。 各サブルーチンの頭にそのルーチンの機能を ひと言で表すような単語をラベルとして記述することで プログラムの読みやすさを向上させるわけです。 内部処理に関して付け加えます。 ラベルが使われると該当する行をテキストの最初から順に探していきます。 よってラベルが二重に定義された場合は先に出てきたほうが優先されます。 同じ理由でラベルを使うとプログラムの実行速度は低下します。 ですがスピードよりも読みやすさに重点を置く場合には、 ラベルの使用は有効でしょう。 また、GOTO文などの分岐先として式の使用を許したために、 RENUMコマンド によって行番号を付け換えても 分岐先行番号の変更はしないので、ここでもラベルが有用なものとなります。 開発中はラベルを用いるようにし、 行番号をきれいに整理し終わった時点でスピードが必要とされる部分を ラベルから行番号に直すようにすればよいでしょう。 このときSEARCHコマンドを使えば少ない労力ですみます。 ●ＰＲＯＣ／ＲＥＴＰＲＯＣ 変数の退避をともなうGOSUB文 といえます。 Ｔ．Ｔ．Ｌ．の:=文とほとんど同じですが、 局所変数をLOCAL文 によって変更できる点が違います。 PROCが実行されると、LOCAL文 で指定された６つの変数を 変数スタックにプッシュしてからサブルーチンを呼び出します。 このとき、カンマで区切った６つまでの式があると、 その値を局所変数に与えてからサブルーチンを呼びます。 そして、RETPROC により 先にプッシュした６つの変数の値を復帰させてリターンします。 つまりサブルーチンの中で局所変数のみを使う限り、 メインルーチンと変数の重複を気にせずに プログラムが書けるわけです。 ●ＦＵＮＣ／ＲＥＴＦＵＮＣ PROC文を関数にしたものです。 変数の退避を行ってから サブルーチンを呼び出すことに変わりありませんが、 関数ですから式の中でのみ用いられ値を持つことになります。 サブルーチンでRETFUNC を見つけると、 指定された値を持ってリターンします。 参考としてPROC、FUNCを使った サンプルプログラムを載せておきます。 ●変数スタック 変数スタックはユーザーが任意にデータを保存しておくほかに PROC文、FUNC関数の変数退避に用いられ、 １回のPROC文およびFUNC関数の実行ごとに12バイトが使われます。 また、FUNC関数はこのほかに ＣＰＵのスタックを十数〜数十バイト（式の複雑さによる）を使います。 変数スタックとＣＰＵスタックは、 5D00Ｈ〜6300Ｈまでの範囲に連続して置かれており、 VSTACKコマンドによって、その境界を変更することができます。 また、変数スタックをLIMIT で確保したアドレスなど、 まったくほかのアドレスに移動させれば、 5D00Ｈ〜6300ＨのすべてをＣＰＵスタックとして使用できますので、 深く再帰するFUNC関数も実行できるようになります。 ●ループ文 FOR〜NEXT のほかにREPEAT〜UNTIL とWHILE〜WEND があります。 場合によって使い分けてみてください。 処理速度の点ではFORループ がもっとも速く、 REPEAT、WHILE の順になります。 ときに、ループを途中で抜けたい場合があるでしょうが、 単にGOTOで分岐してしまうとスタックが積まれたままになってしまうので、 分岐先でNEXTまたはUNTIL を実行しなければなりません。 FORループ ではよく使うテクニックだと思います。 また、ブロックIF文からの脱出にも同じ方法が使えます。 WHILEループ だけは、WENDが見つかった時点で 必ずWHILE に戻ってしまいますので この方法は使えません。 ●ＳＴＯＮ／ＳＴＯＦＦ STOP文の有効／無効を決めるものです。 デバッグ時に入れたSTOP文を残したままで プログラムを実行できます。 ●ＢＲＯＮ／ＢＲＯＦＦ たとえばバンク切り換えをしてＧ−ＲＡＭをアクセスするときに、 途中でＢＲＥＡＫしたりすると困ったことになります。 そんな場合はＧ−ＲＡＭアクセスルーチンの直前にBROFF文 を、 直後にBRON文を入れるようにして 途中でプログラムが中断しないようにします。 また、FUNC関数ルーチン内でプログラムの実行を中断すると、 CONTによる再開がうまくできなくなりますので、 前後にこの文を置く必要が出てくるでしょう。 ●ＬＤＩＲ／ＬＤＤＲ／ＴＲＡＮＳ メモリのブロック転送をする命令です。 今までのＢＡＳＩＣでは、ブロック転送したい場合 ループを組んでやらなければならなかったのですが、 これらのステートメントを使えば一発です。 メモリ上にＶＲＡＭが置かれている機種なら、 スクロールなどにも利用できるでしょう。 LDIR文、LDDR文は名前も機能もＺ80の命令と同じですので わかりやすいと思います。 メモリのクリアやフルにも有効なものです。 TRANS文 は、データと転送先のアドレスにより、 LDIRとLDDRを使い分けています。 ●ＣＯＤＥ／ＴＡＢＬＥ CODE関数は予約語名を与えると中間コードを返す関数、 TABLE関数 は逆に中間コードから 予約語名を（ポインタとして）返す関数です。 数あるステートメント、関数の中でも もっともえたいの知れないものでしょう。 実は私も何に使うか考えないで作ったのですが ここでヒントを２つ挙げておきましょう。 ひとつはＢＡＳＩＣコンパイラを書こうとするときに たぶん使えるでしょう。 もうひとつは、上のこととも重複しますが、 ＢＡＳＩＣのテキストに対してなんらかの処理を行う場合です。 たとえばファイルコンバータや、 アスキーセーブなんかが考えられます。 このＢＡＳＩＣではメモリ上に複数のテキストを置くこともできますから、 ほかのアドレスに置かれたテキストに対して 処理を行うようなプログラムが作れるのです。 CODE関数を使う上で注意する点として、 関数は最初のカッコまでが予約語となっているということです。 　（誤）A=CODE(FUNC) 　（正）A=CODE(FUNC( ) ・――――　　　　　　　　　　　　　・ ｜　　命令・関数の拡張について　　　｜ ・　　　　　　　　　　　　　――――・ Ｆｕｚｚｙ　ＢＡＳＩＣでは ステートメントなどの追加ができるようになっています。 追加は機械語サブルーチンを作り その先頭アドレスをジャンプテーブルに登録することによって行います。 ステートメントは、USR^A、……、USR^Hの名前で８つまでが追加可能です。 ジャンプテーブルは5092Ｈからの２バイトずつが対応します。 関数は、FN^A、……、FN^Hの名前で８つまで追加できます。 ジャンプテーブルは511FＨからです。 またPRINT文用出力関数 もPR^AとPR^Bの２つが追加でき、 ジャンプテーブルは5156Ｈから２バイトずつ４バイトです。 ジャンプテーブルに登録する際は、 アドレスを下位、上位の順に登録するのを忘れないでください。 以下にサブルーチンを作る上で必要と思われることを述べます。 テキストの実行ポインタとしてIXレジスタが使われています。 プログラムが実行されるときは、 IXレジスタを順にインクリメントしてテキストが読み込まれ、 解析されることになります。 各ステートメントの機械語サブルーチンが呼び出された時点で、 IXレジスタはそのステートメントの中間コードが置かれた 直後のアドレスを指しています。 サブルーチン内では汎用レジスタはすべて自由に使えます。 IXレジスタは先に述べたように テキスト実行ポインタとして使われていますから、 勝手な使い方はできません。 また、IYレジスタはFORループ用 のスタックポインタとして 使われているので保存する必要があります。 サブルーチンからはRET によって戻り、 その時点でIXレジスタは ｼﾝｸﾞﾙｸｫｰﾃｰｼｮﾝ（’）かｺﾛﾝ（：）か0DH（行のｴﾝﾄﾞｺｰﾄﾞ） のある アドレスを指していなければなりません。 関数はリターン時のHLレジスタが値となりますので、 演算結果を入れてリターンするようにします。 表３にサブルーチンを組むのに必要と思われる インタプリタ内のルーチンのエントリーアドレスを示しておきます。 ほかにも使えるものはあると思いますので、 ソースリストも参考にしてください。 インタプリタ内にはほとんど空きがないので、 新しく作ったサブルーチンはまったく別にセーブしておくか、 次に述べる方法によりインタプリタに組み込みます。 まずサブルーチンを6300Ｈからの本来なら テキストが格納されるべきアドレスに置くようにします。 そして307EＨ、307FＨの２バイト（00Ｈ、63Ｈになっている）を サブルーチンの終わった直後のアドレスの上位、下位を 逆転したものに変更します。 最後に3000Ｈから新しいルーチンの最後までを セーブすれば完成です。 ●図１　メモリマップ ・――――――――――――――――――――――・ ｜ $3000 ・―――――――――――――――・　｜ ｜　　　　｜SF-BASICｲﾝﾀﾌﾟﾘﾀ本体 ｜　｜ ｜　　　　｜ ｜　｜ ｜　　　　　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜　　｜ ｜　　　　　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜　　｜ ｜　　　　｜ ｜　｜ ｜ 57D6H ｜―――――――――――――――｜　｜ ｜　　　　｜変数名ｴﾘｱ (203ﾊﾞｲﾄ)｜　｜ ｜ 58A1H ｜―――――――――――――――｜　｜ ｜　　　　｜変数値ｴﾘｱ (254ﾊﾞｲﾄ)｜　｜ ｜ 599FH ｜―――――――――――――――｜　｜ ｜　　　　｜各種ﾜｰｸ (54ﾊﾞｲﾄ)｜　｜ ｜ 59DCH ｜―――――――――――――――｜　｜ ｜　　　　｜ﾌﾞﾛｯｸIFｽﾀｯｸ (16ﾊﾞｲﾄ)｜　｜ ｜ 59ECH ｜―――――――――――――――｜　｜ ｜　　　　｜REPEAT〜UNTILｽﾀｯｸ (32ﾊﾞｲﾄ)｜　｜ ｜ 5A0CH ｜―――――――――――――――｜　｜ ｜　　　　｜WHILE〜WENDｽﾀｯｸ (32ﾊﾞｲﾄ)｜　｜ ｜ 5A2CH ｜―――――――――――――――｜　｜ ｜　　　　｜FOR〜NEXTｽﾀｯｸ ｜　｜ ｜　　　　｜ (128ﾊﾞｲﾄ)｜　｜ ｜ 5AACH ｜―――――――――――――――｜　｜ ｜　　　　｜GOSUB,PROC,FUNCｽﾀｯｸ ｜　｜ ｜　　　　｜ (254ﾊﾞｲﾄ)｜　｜ ｜ 5BAAH ｜―――――――――――――――｜　｜ ｜　　　　｜GOTOなど用行番号←→ｱﾄﾞﾚｽﾃｰﾌﾞﾙ｜　｜ ｜　　　　｜ (254ﾊﾞｲﾄ)｜　｜ ｜ 5CA8H ｜―――――――――――――――｜　｜ ｜　　　　｜中間ｺｰﾄﾞﾍの変換用ﾊﾞｯﾌｧ ｜　｜ ｜　　　　｜ (88ﾊﾞｲﾄ)｜　｜ ｜ 5D00H ｜―――――――――――――――｜　｜ ｜　　　　｜変数ｽﾀｯｸ ｜　｜ ｜　　　　｜　　　　　　　　　　　　　　　｜　｜ ｜　　　　｜　　　　　　　　　　　　　　　｜　｜ ｜(6200H) ｜- - - - - - - - - - - - - - - ｜　｜ ｜　　　　｜ﾏｼﾝｽﾀｯｸ ｜　｜ ｜　　　　｜　　　　　　　　　　　　　　　｜　｜ ｜ 6300H ｜―――――――――――――――｜　｜ ｜　　　　｜TEXTｴﾘｱ ｜　｜ ｜　　　　｜　　　　　　　　　　　　　　　｜　｜ ｜　　　　・―――――――――――――――・　｜ ・――――――――――――――――――――――・ ●表３　新命令語追加用インタプリタ内ルーチン ・――――――――――――――――――――――・ ｜3000H ｺｰﾙﾄﾞｽﾀｰﾄ ｜ ｜3003H ﾎｯﾄｽﾀｰﾄ ｜ ｜3006H IXﾚｼﾞｽﾀの指すｱﾄﾞﾚｽからの1行の式を ｜ ｜ 評価し､HLに入れて戻る｡ ｜ ｜ ﾘﾀｰﾝ時､IXﾚｼﾞｽﾀは式の直後のｱﾄﾞﾚｽを ｜ ｜ 指す｡ ｜ ｜3009H ｶﾝﾏで区切られた2つの式(式,式の形)を ｜ ｜ 評価し､順にHL,DEﾚｼﾞｽﾀに入れて戻る｡ ｜ ｜300CH ｶﾝﾏで区切られた3つの式を評価し､ ｜ ｜ 順にHL､DE,BCﾚｼﾞｽﾀに入れて戻る｡ ｜ ｜300FH 式の評価のあと閉じｶｯｺがなければｴﾗｰを ｜ ｜ 発生する｡ ｜ ｜ 値はHLﾚｼﾞｽﾀに持ってﾘﾀｰﾝすることは ｜ ｜ 上と同様｡ ｜ ｜3012H 2つの式の評価と閉じｶｯｺのﾁｪｯｸを ｜ ｜ 続けて行う｡ ｜ ｜3015H 3つの式の評価と閉じｶｯｺのﾁｪｯｸを続けて ｜ ｜ 行う｡ ｜ ｜3018H ｼﾝﾀｯｸｽｴﾗｰ(ｴﾗｰ13)を発生する｡ ｜ ｜301BH Bad Dataｴﾗｰ(ｴﾗｰ14)を発生する｡ ｜ ｜301EH ｱｷｭﾑﾚｰﾀの値に対応するｴﾗｰを発生する｡ ｜ ｜3021H IXﾚｼﾞｽﾀの指すｱﾄﾞﾚｽからの変数名に対応 ｜ ｜ して､DEﾚｼﾞｽﾀに変数値､HLﾚｼﾞｽﾀに ｜ ｜ その格納ｱﾄﾞﾚｽを持ってﾘﾀｰﾝする｡ ｜ ・――――――――――――――――――――――・ ・――――　　　　　　　　　　　　　・ ｜　　　　　　　最後に　　　　　　　｜ ・　　　　　　　　　　　　　――――・ インタプリタ本体はワークを除いても 約10ＫバイトとというＳ−ＯＳ関係のものとしては大きなものです。 なんといってもＢＡＳＩＣという言語の性格上、 エディタからＤＯＳもどきまでを含んでいるのですから。 システムプログラムを作るのは初めてだったものですから、 速度とメモリ効率との兼ね合いもいまひとっだったかもしれません。 最初はコンパイラをも作ることを前提とし、 また、サブルーチン単位でのコンパイルを可能とするため ランタイムパッケージをインタプリタ内に持ち、 かつ分離もできるようにするつもりでしたが、 思っていた以上に命令語が増え、 結果としてオブェクトサイズがまりにも巨大になってしまったので、 とうとう純粋なインタプリタとなってしまいました。 ただし、まだまだコンパイラの夢は捨てていませんよ。 スピードが気になる方のために 簡単なベンチマークテストの結果を付け加えておきます。 本来ならベンチマークプログラム自体も掲載するべきでしょうが、 「えこひいき」していないことだけを申し添えておきます。 機種はMZ-2200上 で行いました。 Ｓ−ＯＳをかんでいるので、機種別に多少の違いが出ると思いますし、 クロックが違えばさらに異なった結果が出ますが、 参考程度にはなるでしょう。 これまでのＢＡＳＩＣとはひと味違ったものに仕上げたつもりですので、 ひと味違った使い方をしてください。 来月はこのＢＡＳＩＣのユニークな命令を活用するための サンプルを紹介する予定です。 お楽しみに。 〈参考文献〉 MZ-2200 BASIC/MONITOR MANUAL、シャープ MZ-2200 OWNER'S MANUAL、シャープ HuBASIC ver2.0 reference book、ハドソンソフト ＹＯＵ＆美香：T.T.L.ｲﾝﾀﾌﾟﾘﾀ、Oh!MZ、1984、10、pp.81-108 ＢＡＳＩＣ行動学入門、Oh!MZ、1986、１、pp.41-113 その他Ｓ−ＯＳ関連記事、Oh!MZ ●表４　ベンチマークテスト結果（MZ-2200上 単位は秒） ・――――――――――――――――――――――――――――――――・ ｜　　　　　　　　｜Fuzzy BASIC ｜　　WICS ｜ T.T.L. ｜MZ-1Z001　｜ ｜　　　　　　　　｜　　　　　　｜(ｲﾝﾀｰﾌﾟﾘﾀ)｜　　　　｜　　　　　｜ ｜――――――――＋――――――＋―――――＋――――＋―――――｜ ｜５万回素ループ　｜　　　15　　｜　――　　｜　　38　｜　　30　　｜ ｜３万回素ループ　｜　　　９　　｜　　９　　｜　　22　｜　　17　　｜ ｜３万回GOSUB(１) ｜　　　32　　｜　　32　　｜　　69　｜　　57　　｜ ｜ 　　同　　(２) ｜　　　32　　｜　　32　　｜　 228　｜　 230　　｜ ｜３万回加算　　　｜　　　31　　｜　　35　　｜　　44　｜　　55　　｜ ｜　　　減算　　　｜　　　31　　｜　　35　　｜　　45　｜　　55　　｜ ｜　　　乗算　　　｜　　　38　　｜　　36　　｜　　52　｜　　63　　｜ ｜　　　除算　　　｜　　　42　　｜　　46　　｜　　56　｜　　72　　｜ ｜１万回文字表示　｜　　　15　　｜　　21　　｜　　19　｜　　33　　｜ ・――――――――――――――――――――――――――――――――・ 　・テストプログラムはＯｈ！ＭＺ’85年11月号のものとほぼ同じ。 　・時間の計測には、WICSはTIME関数、MZ-1Z001ではTI$、 　　Fuzzy BASICとT.T.L.ではﾓﾆﾀMZ-1Z001M内のｻﾌﾞﾙｰﾁﾝを利用。 　・３万回GOSUB(2)は、(1)のプログラムの前に100行のREMを入れたもの。 　　なお、ループの時間は引いていない。